home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
progjour
/
1987
/
05
/
demo.var
< prev
next >
Wrap
Text File
|
1987-08-07
|
1KB
|
43 lines
{ Include file required by source code file DEMO.PAS, from article
by John J. Newlin, Page 28, Volume 5.5, Programmer's Journal
DEMO.VAR include file
Copyright 1987 by John J. Newlin, 4060-228 Rosenda Court, San
Diego, CA 92122
}
(* Type and variable declarations to
be used with DEMO.PAS. *)
type
cursor_type = (normal,none);
str4 = string[4];
str255 = string[255];
regpack = record case integer of
1 : (ax,bx,cx,dx,bp,si,di,ds,es,flags:integer);
2 : (al,ah,bl,bh,cl,ch,dl,dh : byte);
end;
address = record
offset,segment : integer;
end;
buffer_type = array[1..4000] of byte;
hex_char_type = array[0..15] of char;
const
activate : byte = 113;
dataseg : integer = 0;
stackseg : integer = 0;
stackptr : integer = 0;
demo_main : integer = 0;
loaded_in_emm : integer = $9876;
emm_handle : integer = 0;
saveds : integer = 0;
savees : integer = 0;
savess : integer = 0;
savesp : integer = 0;
hex_char : hex_char_type = '0123456789ABCDEF';
var
vector : array[0..$FF] of address absolute $0:$0;
emm_seg,cursor_size,cursor_posit,buffer_loc : integer;
color,scan : boolean;
main_buffer,aux_buffer : ^buffer_type;